Aminet 1 (Walnut Creek)/Aminet - June 1993 [Walnut Creek].iso/aminet/util/misc/vhlogger_v2.lzh/vhlogger.rexx

OS/2 REXX Batch file | 1992-07-19 | 5KB | 222 lines

arexx commands:

back      - move vhlogger window to back.
        arexx example "back"

close      - close the data base.
        arexx example "close"

delete      - delete the current record.
        example "delete"

find CALL - find and retrieve a record for CALL, record in same order as update.
        example "find ka8cte"
        or         x = 'ka8cte'
             "find" x

first      - go to the first record in the data base, retrieve it.
        example "first".

front      - move vhlogger window to front.
        example "front"

next      - go to the next record, retrieve it
        example "next"

open FILE - open an existing data base FILE.  Do not include the suffix.
        example "open vhdata".  The rexx interface does not allow
        you to open a file that does not exist (eg the create mode).

quit      - vhlogger ends.
        example "quit"

update      - update the display and the data base using positional data as
        described below.
        See below for examples.

version   - retrieve version number.
        example:
        /* rexx */
        options results
        address 'vhlogger'      /* assume vhlogger is running */
        'version'               /* issue the command */
        say result            /* SAY the result */
        /* end rexx */
        sample output:
        $VER: VHlogger 2.03 by Vincent Herried (KA8CTE)

* * * * * * * * *



The semicolon delimited data is in the following order:
  callsign
  name
  date - YYMMDD
  start time
  end time
  rst sent
  rst received
  address
  city
  state
  zip
  comment

  srh  - qsl send Y or N; qsl received Y or N;from home qth Y or N
     example if qsl card sent, not received, and contact made from
     home qth this field will be YNY

  Band_number - as follows:
   0 "     "
   1 "160M",
   2 "80M",
   3 "40M",
   4 "30M",
   5 "20M",
   6 "17M",
   7 "15M",
   8 "12M",
   9 "10M",
  10 "6M",
  11 "2M",
  12 "1.25M",
  13 "70CM",
  14 "33CM",
  15 "23CM",
  16 "other",

  Power_name
   0 "    "
   1 "1W",
   2 "5W",
   3 "50W",
   4 "200W",
   5 "1KW",
   6 "2KW",


  Ant_name
   0 "      "
   1 "RANDOM",
   2 "DIPOLE1",
   3 "DIPOLE2",
   4 "DIPOLE3",
   5 "DIPOLE4",
   6 "VERT 1",
   7 "VERT 2",
   8 "VERT 3",
   9 "VERT 4",
  10 "BEAM 1",
  11 "BEAM 2",
  12 "BEAM 3",
  13 "BEAM 4",
  14 "DUCK",
  15 "QUAD",
  16 "DISH",
  17 "HELIX",
  18 "other",

  Mode_name
   0 "    "
   1 "CW",
   2 "SSB",
   3 "FM",
   4 "AM",
   5 "AMTOR",
   6 "RTTY",
   7 "PACKET",
   8 "ASCII",
   9 "FAX",
  10 "SSTV",
  11 "FSTV",
  12 "other",


  "."

Update command examples:

example 1.

      REXX command:

      "update ka8cte;Vince Herried;920705;0700;0800;588;599",||
      ";1688 Staffordshire RD;Columbus;OH;43229;The author;YYY",||
      "0;0;0;0"

      Explaination:
      Update call sign KA8CTE with the following values:
      name = Vince Herried
      date = 07/05/92
      start time = 07:00
      end time = 08:00
      rsts = 588
      rstr = 599
      address = '1688 ....'
      city = 'Columbus'
      state = 'OH'
      zip = 43229
      comments = 'The author'
      qsl has been sent and received.
      contact made from your QTH
      band, power, antenna, and mode set to " ".

example 2.


      "update ka8cte;Vince Herried;920705;0700;0800;588;599",||
      ";;;OH;;a CW freak;xxx",||
      "0;0;0;1"

      Update call sign KA8CTE with the following values:
      name = Vince Herried
      date = 07/05/92
      start time = 07:00
      end time = 08:00
      rsts = 588
      rstr = 599
      address = ''
      city = ''
      state = 'OH'
      zip = ''
      comments = 'a CW freak'
      qsl has not been sent and not received.
      contact was not made from your QTH   (note any value other than 'Y' in
      these fields is intrepreted as 'N'.  'y' is not 'Y' ok?)
      band, power, and antenna set to " ".
      mode = 'CW'

* * * * * * * * * * * * *
To start vhlogger and use an arexx macro called 'temp.vh' enter following from
your CLI prompt:
      vhlogger temp

The program will start up and invoke a rexx exec in your current directory
named 'temp.vh'

Alternatively you may start vhlogger in one window and
then start the arexx exec in a different window.
Or you can have your arexx exec start vhlogger, see the example qsl.rexx

Assume that vhlogger is running and the data base is open. Here is a sample
arexx exec.

       /* temp.rexx  */

       options results

       address "vhlogger"
       call = 'ka8cte'
       'find' call
       say 'Return code =' RC  /* 0 = record found */
       if RC = 0 then say "Result="RESULT;
       /* end of rexx */

You could see something like the following from the above:
RC=0
Result=KA8CTE;Vince Herried;920701;0700;0800;;;1688 Staffordshire;
Columbus;OH;43229;usnet addr is [e-mail];YYY;0;0;0;0.